unit CountHighscore;

interface

type
  TCountHighscore = class
  private
    { Private Declarations }
  public
    time : integer;
    moves : integer;
    Hscore : integer;
    procedure  CalcHS;
    constructor Create;
  end;

implementation

procedure TCountHighscore.CalcHS;
begin
  Hscore := 1234567 - (time + (moves*200));
end;

constructor TCountHighscore.Create;
begin
  inherited Create;
  // TODO: Add any constructor code here
end;

end.
